home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / current.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  519 b   |  29 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Eiffel Current class
  5.  
  6. -> The 'Current' class is a special class that changes with the current
  7. -> object. There is only one 'Current' class. It is mainly used by
  8. -> 'like Current' anchored type.
  9.  
  10. OPT MODULE
  11. OPT EXPORT
  12.  
  13. MODULE '*class'
  14.  
  15. -> 'Current' class
  16. OBJECT current OF class
  17. PRIVATE
  18.   current:PTR TO class
  19. ENDOBJECT
  20.  
  21. -> Base class of the class-type
  22. PROC base() OF current IS self.current
  23.  
  24. -> Set current base class
  25. PROC set(class) OF current
  26.   self.current:=class
  27. ENDPROC
  28.  
  29.